home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / f2c / may_5_92.lha / f2c.VMay_5_1992 / libI77 / wsle.c < prev    next >
C/C++ Source or Header  |  1992-05-07  |  552b  |  34 lines
  1. #include "f2c.h"
  2. #include "fio.h"
  3. #include "fmt.h"
  4. #include "lio.h"
  5. extern int l_write(), t_putc(), x_wSL();
  6.  
  7. integer s_wsle(a) cilist *a;
  8. {
  9.     int n;
  10.     if(!init) f_init();
  11.     if(n=c_le(a)) return(n);
  12.     reading=0;
  13.     external=1;
  14.     formatted=1;
  15.     putn = t_putc;
  16.     lioproc = l_write;
  17.     L_len = LINE;
  18.     donewrec = x_wSL;
  19.     if(curunit->uwrt != 1 && nowwriting(curunit))
  20.         err(a->cierr, errno, "list output start");
  21.     return(0);
  22.     }
  23.  
  24. integer e_wsle()
  25. {
  26.     t_putc('\n');
  27.     recpos=0;
  28.     if (cf == stdout)
  29.         fflush(stdout);
  30.     else if (cf == stderr)
  31.         fflush(stderr);
  32.     return(0);
  33.     }
  34.